home *** CD-ROM | disk | FTP | other *** search
/ Always 25 / Always_25_1995-09_Elysium_Sunga_pl_Side_A.d64 / gaypack xxv .run / ARCAID3 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  66 lines
  1. 0 rem:arcaid3:         e.g. 02-nov-86
  2. 10 ifgl=5110then360
  3. 20 ifgl=5370then620
  4. 30 ifgl=5390then640
  5. 40 goto260
  6. 50 dr$=""
  7. 60 ifdv=8anddr=0thendr$="a:"
  8. 70 ifdv=8anddr=1thendr$="b:"
  9. 80 ifdv=9anddr=0thendr$="c:"
  10. 90 ifdv=9anddr=1thendr$="d:"
  11. 100 ifdv=10anddr=0thendr$="e:"
  12. 110 ifdv=10anddr=1thendr$="f:"
  13. 120 ifdv=11anddr=0thendr$="g:"
  14. 130 ifdv=11anddr=1thendr$="h:"
  15. 140 return
  16. 150 end
  17. 260 rem: append to arc file
  18. 270 print"[147]     [193]ppend to an existiing [193][210][195] file [146]"
  19. 290 print"  [208]ress [158]$[146] for a directory of [196]rive 8,0."
  20. 291 print" [208]ress [158][211][208][193][195][197] [194][193][210][146] to return to [205]ain [205]enu."
  21. 300 print"       [193]ny other key will continue."
  22. 310 geta$:ifa$=""then310
  23. 311 ifa$<>" "then320
  24. 312 print"[147] [201][206][211][197][210][212] [196][201][211][203] with [193][210][195] [193][201][196] in drive 8,0":poke198,0
  25. 313 print"           and press any key."
  26. 314 geta$:ifa$=""then314
  27. 315 print"[147]";spc(15);"[204]oading..."
  28. 316 print"[144]load"chr$(34)"arc aid ?.?"chr$(34)",8";:goto670
  29. 320 ifa$<>"$"then390
  30. 330 print"[147]     [211][200][201][198][212] pauses,  [210][213][206]/[211][212][207][208] aborts"
  31. 340 print"dir":print"":gl=5110
  32. 350 goto670
  33. 360 poke198,0:print"    [208]ress any key to return to menu.[146]":gl=0
  34. 370 geta$:ifa$=""then370
  35. 380 goto260
  36. 390 print"[147]     [193]ppend to an existing [193][210][195] file[146]"
  37. 400 input"[193][210][195] file to append to";f$:iff$=""thenrun
  38. 405 ifright$(f$,4)<>".arc"thenf$=f$+".arc"
  39. 430 print"   [208][204][193][195][197] [196][201][211][203] [215][201][212][200] [158]"f$:print"   [201][206][212][207] [196][210][201][214][197] 8,0"
  40. 440 ifa=9then540
  41. 442 ifa>0then455
  42. 450 input"[198]ilename or [158][210][197][212][213][210][206][146]";fi$(a):goto460
  43. 455 input"[206]ext [198]ilename or [158][210][197][212][213][210][206][146]";fi$(a)
  44. 460 iffi$(a)=""then540
  45. 470 print"[156][207]n what drive can this":input"file be found   8,0[157][157][157][157][157]";dv,dr
  46. 480 gosub50:fd$(a)=dr$:ifdr$=""then470
  47. 490 fori=1tolen(fi$(a))
  48. 500 ifmid$(fi$(a),i,1)=" "thente$(a)=te$(a)+"?":goto520
  49. 510 te$(a)=te$(a)+mid$(fi$(a),i,1)
  50. 520 next
  51. 530 a=a+1:goto440
  52. 540 iffi$(0)=""thenrun
  53. 550 c$="arc/a a:"+f$:ex$=""
  54. 560 fori=0toa-1
  55. 570 ex$=ex$+" "+fd$(i)+te$(i)
  56. 580 next
  57. 590 c$=c$+ex$
  58. 600 print"[147]";c$:print"":gl=5370
  59. 610 goto670
  60. 620 print"[147]arc/l a:"f$:print"":gl=5390
  61. 630 goto670
  62. 640 poke198,0:print"    [208]ress any key to return to menu.[146]":gl=0
  63. 650 geta$:ifa$=""then650
  64. 660 run
  65. 670 poke631,13:poke632,71:poke633,207:poke635,13:poke636,13:poke198,5:end
  66.